SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDBANC_CTCO_D01] 
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : CASSINELLI                 --*/
/*---Sistema              : Tesoreria                  --*/
/*---M½dulo               : Empresa                    --*/
/*---Programa             : Grabaci½n Detalle          --*/
/*---                       Movimiento Bancos          --*/
/*---                       (Egresos)                  --*/  
/*---Script               : TDBANC_CTCO_D01.sql               --*/
/*---Nombre SP            : SP_TDBANC_CTCO_D01         --*/
/*---Desarrollado por     : Javier Flores A.           --*/
/*---Fecha Creaci®n       : 18/06/1999                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi½n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     : Eduardo Vivar Pomiano      --*/
/*---Fecha Modificaci½n   : 03/04/2001                 --*/ 
/*---Detalle Modificaci½n : Permite grabar docs Clientes en EGRESOS--*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TDBANC_CTCO_D01                      --*/
/*---Grant all on SP_TDBANC_CTCO_D01 to public         --*/ 
/*---SP_TDBANC_CTCO_D01                               --*/
/*-------------------------------------------------------*/
             
 @ISCO_EMPR TD_VC_002, 
 @ISCO_USUA_MODI TD_VC_008_USUA,
 @ISCO_BANC TD_VC_003, 
 @ISNU_CNTA_BANC TD_VC_020,
 @ISAA_BNCO TD_VC_004, 
 @ISMM_BNCO TD_VC_002, 
 @ISTI_MOVI_BANC TD_VC_001,  
 @ISNU_COMP_BANC TD_VC_008, 
 @ISNU_PLAC TD_VC_010,
 @ISCO_UNID_CNTB TD_VC_003
As
Declare
 @VNIM_VEHI_ANTE TD_NU_016_004
 
 Begin Tran SP_TDBANC_CTCO_D01 
 
 Select @VNIM_VEHI_ANTE = IM_VEHI
 From   TDBANC_CTCO
 Where  CO_EMPR       = @ISCO_EMPR
 And    CO_UNID_CONC  = @ISCO_UNID_CNTB
 And	CO_BANC       = @ISCO_BANC 
 And	NU_CNTA_BANC  = @ISNU_CNTA_BANC
 And	AA_BNCO       = @ISAA_BNCO
 And	MM_BNCO       = @ISMM_BNCO
 And	TI_MOVI_BANC  = @ISTI_MOVI_BANC
 And    NU_COMP_BANC  = @ISNU_COMP_BANC 
 And    NU_PLAC       = @ISNU_PLAC

   
 Update TCMOVI_BANC
     Set IM_MOVI      = IM_MOVI - Round(@VNIM_VEHI_ANTE,2),
         CO_USUA_MODI = @ISCO_USUA_MODI,
         FE_USUA_MODI = getdate()         
     Where CO_EMPR = @ISCO_EMPR 
     And   CO_UNID_CONC  = @ISCO_UNID_CNTB
     And   CO_BANC = @ISCO_BANC 
     And   NU_CNTA_BANC = @ISNU_CNTA_BANC 
     And   AA_BNCO = @ISAA_BNCO
     And   MM_BNCO = @ISMM_BNCO 
     And   TI_MOVI_BANC = @ISTI_MOVI_BANC
     And   NU_COMP_BANC = @ISNU_COMP_BANC 

 If @@error <> 0
        Begin
          Rollback tran
	    Return
        End  

 commit tran

 Delete TDBANC_CTCO
 Where	CO_EMPR = @ISCO_EMPR
 And    CO_UNID_CONC  = @ISCO_UNID_CNTB
 And 	CO_BANC = @ISCO_BANC
 And 	NU_CNTA_BANC = @ISNU_CNTA_BANC
 And 	AA_BNCO = @ISAA_BNCO
 And 	MM_BNCO = @ISMM_BNCO
 And 	TI_MOVI_BANC = @ISTI_MOVI_BANC
 And 	NU_COMP_BANC = @ISNU_COMP_BANC
 And 	NU_PLAC = @ISNU_PLAC
 
 If @@error <> 0
        Begin
          Rollback tran
	  Return
   End  


/*------------------------ Fin ------------------------------*/


GO
